home *** CD-ROM | disk | FTP | other *** search
/ El Mac 9 / El Mac 9.iso / Shareware / Applications / NLphoneCheck 2.0 / NLphoneCheck2.0 / Voor⁄for later / JJLcheckDataAddV2E (.txt) < prev    next >
Encoding:
FileMaker Pro Database  |  1995-11-13  |  14.5 KB  |  144 lines  |  [FMPR/FMPR]
  1. HBAM2001MAY84
  2. JJLcheckDataAddV1.0E:*
  3. 2780300
  4. Pro 1.0F!
  5. Pro 1.0I
  6. Main Dictionary
  7. User Dictionary
  8. 13-11-1995
  9. COMMENT
  10. A8278 & If(Length(E1) = 3 ,0 & Left(E1,2),Left(E1,3)) & 0 
  11. AreaB
  12. @@#1B
  13. TextToNum(Area) & Left(Abo ,1)
  14. @@#2B
  15. CompleteB
  16. YesfD
  17. YesfD
  18.     Helvetica
  19.                                                                 If (@#2 
  20.  0 ,"",278 & If(Length(E1) = 3 ,0 & Left(E1,2),Left(E1,3)) & 0 ))))
  21.                                                    If (@#2 
  22.  0 ,"Ent
  23. NieuwB
  24. YesfD
  25. YesfD
  26. n the new / nieuw  field bel
  27. If a new series of subscriber numbers is introduced, (E.g. 030-5xx xx xx) you can add the whole series  to the the file JJLcheckData by entering the area code and one subscriber number below:
  28. If the data are acB
  29. ceptable, open the file JJLcheckData, import (from the File Menu, select match fields) and all new numbers of this form will be accepted.
  30. E    Area Code
  31. Subsciber number
  32. Comment
  33. r hieronder het netnummer en  een nieuw abonnee nr in te tikken.
  34. De benodigde gegevens worden dan uitgerekend en kunB`nen vervolgens in de file JJLcheckData geimporteerd (Met Importeer uit het Archief menu) worden.
  35. Kengetal
  36. Abonnee nummer
  37. Commentaar
  38. Pro 1.0F!
  39. Pro 2.0 - 2.1I
  40. Main Dictionary
  41. User Dictionary
  42. JJLcheckData
  43. CommentB
  44. If(Length(TextToNum(Area)) + Length(TextToNum(Abo)) 
  45.  9 ,  "Length of valid new numbers must be ten digits",                                                         If(TextToNum(Middle(@#3,4 ,3)) 
  46.  TextToNum(Ar@@#4B
  47. JJLcheckData
  48. JJLcheckDataK
  49. If(Length(TextToNum(Area)) + Length(TextToNum(Abo)) 
  50.  9 ,"",                                                         If (TextToNum (Middle (@#3,4 ,3)) 
  51.  TextToNum (Area) and TextToNum (Middle (@#4,4 ,3)) 
  52.  Text
  53. "",                                                                                                       If (@@#2 
  54.  0 ,"",@@#1)))
  55. JJLonlyB
  56. Users
  57. YesfD
  58.     Helvetica
  59. Chicago
  60. Monaco
  61. Geneva
  62. Fields
  63. Import
  64. Jjlcheckdata
  65. Matching
  66. Valid
  67. Fields
  68. Import
  69. Jjlcheckdata
  70. Matching
  71. Valid
  72.  worden dan uitgerekend en kunB`nen vervolgens in de file JJLcheckData geimporteerd (Met Importeer uit het Archief menu) worden.
  73. YesfD
  74. YesfD
  75. y already exists, do not import!",                      "OK, valid data. To add, open JJLcheckData and import the two matching fields"))))
  76.     '.Length of valid new numbers must be ten digits&
  77. '+Area code does not exist yet, are you sure?
  78. JJLcheckData
  79.  not exist yet, are you sure?&
  80. '#Abo cannot begin with 0, 1, 8, or 9&
  81.     '#Entry alrBLeady exists, do not import'-OK, valid data, go to JJLcheckData and import
  82. @@#4B
  83. JJLcheckData
  84. If(Length(TextToNum(Area)) + Length(TextToNum(Abo)) 
  85.  9 ,"",                                                         If (TextToNum (Middle (@#3,3 ,3)) 
  86.  TextToNum (Area) and TextToNum (Middle (@#4,3 ,3)) 
  87.  TextB
  88. ToNum (Area),278 & If(Length(E1) = 3 ,0 & Left(E1,2),Left(E1,3)) & 0 ,                                                        If (Left (Abo,1) 
  89.  1 or Left (Abo,1) 
  90.  8 ,"",                                       
  91. AreaB
  92. TextToNum(Area) & Left(Abo ,1)
  93. JJLcheckData
  94. AreaB
  95. @@#1B
  96. TextToNum(Area) & Left(Abo ,1)
  97. @@#2B
  98. '2Subscriber numbers cannot begin with 0, 1, 8, or 9&
  99.     '$Entry already exists, do not import!'LOK, valid data. To add, open JJLcheckData and import the two matching fields
  100. '#Abo cannot begin with 0, 1, 8, or 9&
  101.     '#Entry already exists, do not import'EOK, valid data, go to JJLcheckData and import the two matching fields
  102. K, valid data, go to JJLcheckData and import the two matching fields
  103. ToNum (Area),@#1,                                                        If(Left(Abo,1) 
  104.  1 or Left(Abo,1) 
  105.  8 ,"",                                                                                               C
  106.         If (@#2 
  107.  0 ,"",@#1))))
  108. JLcheD.ckData and import the two matching fields"))))
  109. 2780300
  110. 3780100
  111. 3780100
  112. 2780300
  113. 3780100
  114. 3780100
  115. Pro 1.0F!
  116. Pro 1.0I
  117. Main Dictionary
  118. User Dictionary
  119. Fields
  120. Import
  121. Jjlcheckdata
  122. Matching
  123. Valid
  124. Pro 1.0F!
  125. Pro 1.0I
  126. Main Dictionary
  127. User Dictionary
  128. 2780300
  129. 2780300C
  130. 305HLOK, valid data. To add, open JJLcheckData and import the two matching fields
  131. hing fieldsI
  132. 2780300
  133. User Dictionary
  134. ea) and TextToNum(Middle(@#4,4 ,3)) 
  135.  TextToNum (Area),                      "Area code does not exist yet, are you sure?",                                                        If(TextToNum(Left (Abo,1)) 
  136. or TextToNum(Left (Abo,1)) 
  137.  8 ,    "Subscriber numbers cannot begin with 0, 1, 8, or 9",                                                                                                       If (@#2 
  138.  0 ,"Entr
  139. ckData and import"))))
  140. 2780300C
  141. 030D    555 55 55E
  142. 2780300HLOK, valid data. To add, open JJLcheckData and import the two matching fieldsI
  143. 2780300
  144.